home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 71 / 64er_Magazin_Sonderheft_71_19xx_Markt__Technik_de_Side_A.d64 / demo verschieb. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  28 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *          programm  2          *
  4. 4 rem *                               *
  5. 5 rem *   erstellen und aufruf eines  *
  6. 6 rem *        hilfsbildschirmes      *
  7. 7 rem *                               *
  8. 8 rem * heimo ponnath    hamburg 1985 *
  9. 9 rem *********************************
  10. 10 printchr$(147):poke785,0:poke786,96:goto30
  11. 15 rem -------- up cursor setzen ------
  12. 20 poke211,sp:poke214,z:sys58640:return
  13. 25 rem- erstellen des hilfsbildschirmes-
  14. 30 z=1:sp=1:gosub20:print"**************************************"
  15. 40 z=21:sp=1:gosub20:print"**************************************"
  16. 50 z=10:sp=7:gosub20:print"test fuer die verschiebung"
  17. 55 rem ---- aufruf zum verschieben ----
  18. 60 a=usr(dummy)
  19. 65 rem ---bildschirm neu beschreiben---
  20. 70 geta$:ifa$=""then70
  21. 80 printchr$(147):z=2:sp=2:gosub20:print"jetzt sollte der alte bildschirm"
  22. 90 z=4:sp=2:gosub20:print"unter das kernal-rom geschoben sein"
  23. 100 print:print:print" -- jeder  usr-aufruf holt den --"
  24. 110 print" -- hilfsbildschirm wieder .   --"
  25. 120 print" -- auch im direkt-modus       --"
  26. 130 print:print:print"  probieren sie mal: a=usr(1) [return]"
  27. 140 z=19:sp=0:gosub20:end
  28.